(prepend_msg): New function.

diff --git a/src/w32xfns.c b/src/w32xfns.c
index e478bc245378ba375045ced40beb976b1593dd01..3898ff00d8f7f75027ee85b52168ea7a6d9a1a5f 100644 (file)
--- a/src/w32xfns.c
+++ b/src/w32xfns.c
@@ -143,6 +143,27 @@ post_msg (lpmsg)
   return (TRUE);
 }
 
+BOOL
+prepend_msg (Win32Msg *lpmsg)
+{
+  int_msg * lpNew = (int_msg *) myalloc (sizeof (int_msg));
+
+  if (!lpNew)
+    return (FALSE);
+
+  bcopy (lpmsg, &(lpNew->w32msg), sizeof (Win32Msg));
+
+  enter_crit ();
+
+  nQueue++;
+  lpNew->lpNext = lpHead;
+  lpHead = lpNew;
+
+  leave_crit ();
+
+  return (TRUE);
+}
+
 /*
  *    XParseGeometry parses strings of the form
  *   "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where